﻿Public Class clsGlob
    'Global setting form the application

    Public Sub New()
        Me.MobileSettings = New clsMobileSettings
        Me.DistanceCalc = New clsDistanceCalc
        Me.FuelConsumption = New clsFuelConsumption
        Me.FuelConsumption.LitrePer100KM = Me.MobileSettings.LitrePer100KM
        Me.FuelConsumption.PriceOf20Litres = Me.MobileSettings.PriceOf20Litres
    End Sub

    Private _MobileSettings As clsMobileSettings
    Public Property MobileSettings() As clsMobileSettings
        Get
            Return _MobileSettings
        End Get
        Private Set(ByVal value As clsMobileSettings)
            _MobileSettings = value
        End Set
    End Property

    Private _DistanceCalc As clsDistanceCalc
    Public Property DistanceCalc() As clsDistanceCalc
        Get
            Return _DistanceCalc
        End Get
        Set(ByVal value As clsDistanceCalc)
            _DistanceCalc = value
        End Set
    End Property

    Private _FuelConsumption As clsFuelConsumption
    Public Property FuelConsumption() As clsFuelConsumption
        Get
            Return _FuelConsumption
        End Get
        Set(ByVal value As clsFuelConsumption)
            _FuelConsumption = value
        End Set
    End Property

End Class
